package Messages is
   -- Adds a message with its key to this ADO.
   procedure Add_Message (Key : in String; Msg : in String);
   -- Determines if for the given key a message is stored.
   -- Returns True if there is a message for key otherwise
   -- false.
   function Has_Message (Key  : in String) return Boolean;
   -- Returns the message stored for the given key. If no
   -- message is stored for the key the Default_Msg is returned.
   -- Returns                 : if Has_Message (Key) = true then the message
   -- stored is returned otherwise Default_Msg is returned.
   function Get_Message
     (Key                     : in String;
      Default_Msg             : in String := "")
   return String;
end Messages;
